home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Demos / Component Software / FileFlex 2.0.3.sit / FileFlex 2.0.3 / FileFlex-Director / FileFlex Xtras / -Database Designer / 00004.ls < prev    next >
Encoding:
Text File  |  1997-08-18  |  2.6 KB  |  68 lines
  1. on doCreateScroll
  2.   global topPointsToLine, dgDkBlueColor, dgYellowColor
  3.   set maxLinesVisible to 10
  4.   cursor 4
  5.   put topPointsToLine + maxLinesVisible into bottom
  6.   
  7.   put line topPointsToLine to bottom of field "masterNameList"¬¨
  8. into field "visNameList"
  9.   
  10.   if the frameLabel = "Create" or the frameLabel = "Index" then
  11.     put line topPointsToLine to bottom of field "masterTypeList"¬¨
  12.     into field "visTypeList"
  13.     
  14.     put line topPointsToLine to bottom of field "masterWidthList"¬¨
  15.     into field "visWidthList"
  16.     
  17.     put line topPointsToLine to bottom of field "masterDecimalsList"¬¨
  18.     into field "visDecimalsList"
  19.   end if
  20.   if the frameLabel = "Browse" then
  21.     put line topPointsToLine to bottom of field "masterContentList"¬¨
  22.     into field "visContentList"
  23.   end if
  24.   
  25.   if topPointsToLine > 1 then
  26.     -- activate scrollUp
  27.     set the castNum of sprite 9 to (the number of cast "scrollUpEnabled")
  28.   else
  29.     -- disable scrollUp
  30.     set the castNum of sprite 9 to (the number of cast "scrollUpDisabled")
  31.   end if
  32.   if the number of lines of field "masterNameList"-topPointsToLine-9 > 0 then
  33.     -- activate scrollDown
  34.     set the castNum of sprite 10 to (the number of cast "scrollDownEnabled")
  35.   else
  36.     -- disable scrollDown
  37.     set the castNum of sprite 10 to (the number of cast "scrollDownDisabled")
  38.   end if
  39.   set the foreColor of member "visNameList" to dgYellowColor
  40.   set the textFont of member "visNameList" to "Helvetica"
  41.   set the textHeight of member "visNameList" to 16
  42.   set the textSize of member "visNameList" to 12
  43.   
  44.   if the frameLabel = "Create" or the frameLabel = "Index" then
  45.     set the foreColor of member "visTypeList" to dgYellowColor
  46.     set the foreColor of member "visWidthList" to dgYellowColor
  47.     set the foreColor of member "visDecimalsList" to dgYellowColor
  48.     set the textFont of member "visTypeList" to "Helvetica"  
  49.     set the textFont of member "visWidthList" to "Helvetica"
  50.     set the textFont of member "visDecimalsList" to "Helvetica"
  51.     set the textHeight of member "visTypeList" to 16
  52.     set the textHeight of member "visWidthList" to 16
  53.     set the textHeight of member "visDecimalsList" to 16
  54.     set the textSize of member "visTypeList" to 12
  55.     set the textSize of member "visWidthList" to 12
  56.     set the textSize of member "visDecimalsList" to 12
  57.   end if
  58.   if the frameLabel = "Browse" then
  59.   set the foreColor of member "visContentList" to dgYellowColor
  60.   set the textFont of member "visContentList" to "Helvetica"
  61.   set the textHeight of member "visContentList" to 16
  62.   set the textSize of member "visContentList" to 12
  63.   end if
  64.   
  65.   updateStage
  66.   cursor -1
  67. end doCreateScroll
  68.